    If QueryExists("ExchangeRateQuery") Then
        MsgBox "A new lookup table will not be created.", vbOKOnly, "Lookup Table Already Exists"
        Exit Sub
    End If